tt a tt St Ht tt HH HH HH Ha 
tt a tt a a tt i 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 


HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HH HHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 


tt tt tt st 4 Ht Ht Ht Ht Ht Ht HH HH 
AAA a 
| LE) 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


B 16 


**F I LE®*]De*MTHIISIGN 


SFT TTT TTT FF FFF 
SSseeeesss* 22 
= 
2 zz 
+ 3 
22 
zz 

22222 222222222 
22222222222 222 
oo eovuovue 
99 ovuuouoe 
oo oo ow 
wo oo oo 
oo ovo ow 
oo oo ovo 
oo Ooo 
Ooo oo 

OovvovoVII9N00"U 

VUVUVOUUVYUYO 
se Lem) 
—— ame ad 


ae “— 
nn uwunnMn 
mn NWwnn 
un nw nn 
own nw nn 
ww mn nn 
“wn nw “nn 
mw nw “nw 
nw mn nw 
AMMWM nn 
MMWMnm nn 
ot ne —— 


dk kd Ok a ad ad ad Ot Od Od td 
ek Od Od ad 8 Od Od Od Os Pd Od Od Ot 
—e — 
a ee “ee 


“4 “ee 
“—— mo" 
8 Od ag nd Og eg eg ng Og Og Og Og Oe 
8d Ok Od Od Od nd Od Od Od Og Ot Os Oe 


—e« “ee 
tos — 
ZTrrIrITITIT IIIT IIIT 
ae ae abe adie abe aie ibe aie aie aie aie abe aie af 

r+ 4 

=z==z 

r+ 

== 

zx 

=x 
ZETIIIITIITIT IIT IIT 
pe eb eS SS SS eS SD 
od 
oo 
os 
od 
Cn el ol ee en ee 
en el el el oe ee 
tee 
to 
bo 
7 


EEF FEEEEEEEEEE 
== 
SEEESEFEEEEEEE 


own MMnWnn 
mn own nw 
nn nn nw 
“vw “nn “vn 
mn nn nw 
mn “nn “nn 
mn “wn nn 
ONnn “ww 
ANMM nn 
ee ongene 
— =“ 


LLLLLLLLLL 
LLLLLLLLLL 


1 
MTHSIISIGN IISIGN function es 16-SEP-1984 01:42:55 VAX/VMS Macro v04-00 Page 0 
Table of contents 


¢) 48 HISTORY ; Detailed Current Edit History 
(3) atchitel 
(4) 3 MTHSIISI 


MTHSIISIGN IISIGN function 16-SEP-1984 01:42:55 VAX/VMS Macro v04-00 Page 1 
M008 ats 94:38:62 EMTHRTL. SREIMTHIISIGN.MARS 1 (1) 

68 1 TITLE Wien sion ae thes function 

8 § eIDENT /1-002/ 3 File: MTHIISIGN.MAR 

000 4; 

909 5 j SHonoRaereneeoerneSeReseeLensNsesEHHNeTeeseNeNseeNEsnoNseENseNseEsseNTeneeTe 
3 oe 

0000 $ 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 

6090 8 :* DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. ’ 

4 18 :* ALL RIGHTS RESERVED. * 
5 e 

0000 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND conic’ * 

44 1§ 3* ONLY IN ACCORDANCE WITH OF SUCH LICENSE AND WITH * 

00 15 ;* INCLUSION THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

4444 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

44 18 3* TRANSFERRED. * 
7* ® 

0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

0000 19 ;* AN OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

444 $9 3* CORPORATION. * 
3* ® 

0000 3 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

0000 24 3 * 

0000 5 ;* * 

0000 6 lettin sitar kh enc eh kr ci aaah hcl 

0000 ar 3 

0000 28 : 

0000 $5 34 ; FACILITY: MATH LIBRARY 

0000 0 i+ 

0000 31 : ABSTRACT: 

0000 3g 3 $ 

0000 a2 3 

0000 4 oo 

sia 5 : 

0000 6 : VERSION: 0 

0000 $3 $ 

0000 8 : HISTORY: 

0000 39 : 

0000 40 : AUTHOR: 

0000 41 : Jonathan M. Taylor, 14-JUL-77: Version 0 

0000 rt : 

0000 4 : MODIFIED BY: 

0000 44 : 

0000 45 : 

0000 46 ; 
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33 $8 -SBTTL HISTORY ; Detailed Current Edit History 

0 0 

G00 1 ; Edit History for Version 0 of MTH$IISIGN 

444 : : on4 = Remove MTHSFLAG_JACKET. TNH 5-July=78 

000 4 ; 1-001 = Update version number and copyright notice. JBS 16-NOV-78 
0000 55 ; 1-002 = Add "'_"’ to the PSECT directive. JBS 22-DEC-78 
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U 
$1G - :04 (CMTHRTL.S ROM MTHIISIGN.MAR; 1 (4) 
? -SBTTL MTHSIISIGN 
5 34+ 
; FUNCTIONAL DESCRIPTION: 
at 
: CALLING SEQUENCE: 
00 0; NONE 
000 91 ; 
000 35 3 
0000 95 ; INPUT PARAMETERS: 
8808 94 ; NONE 
00 95 ; 
0000 38 3; IMPLICIT INPUTS: 
0000 97 ; NONE 
0000 98 ; 
0000 99 ; OUTPUT PARAMETERS: 
0000 100 ; NONE 
0000 101; 
0000 We 3; IMPLICIT OUTPUTS: 
0000 103; NONE 
0000 104 ; 
0000 105 ; COMPLETION CODES: 
0000 106 ; NONE 
0000 107 ; 
0000 108 ; SIDE EFFECTS: 
0000 109 ; NONE 
0000 110; 
0000 111 ;-- 
0000 We 
0000 0000 11 Phi hy Thad. f “M<> 
50 04 68C BO 0002 114 ), RO : RO = ore! 
09 «19 bo08 112 BUSS NEGARG > branch f negative arg 
44 at 4 ; argl is non-negative, check sign of arg2 
08 BC B5 0008 119 TSTW a8 (AP) 3: check sign of arg2 
03 18 QO0B 120 BGEQ EXIT 3; return if both positive 
000D 121 NEGATE: 
50 50 AE 0000 1 ; MNEGW RO, RO ; negate argl 
Bate 123 EXIT: 
04 001 124 RET 
0011 125 
Batt ' § 3; argl is negative, check sign of arg2 
0011 1 3 NEGARG: 
08 BC BS Bat 1 TSTW @8 (AP) 3; test sign of arg2 
F7 18 0014 130 BGEQ NEGATE 3 negate argl if 02 positive 
04 pig 131 RET 
01 1 ; 
0017 1 
0017 134 - END 
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MTHRTL.SRC a) THIISIGN.MAR; 1 (4) 
EXIT 0 

MTHSIISIGN 0 
NEGARG 0 
NEGATE 0 


PSECT name Allocation PSECT No. Attributes 


S 44 00 ( a 89 f 0.) NOPIC USR CON ABS LCL we NOEXE NORD NOWRT NOVEC BYTE 
MTHSCODE 0000017 ¢ 23.) O1¢ 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
$e -e em mmm enw ec e rao eo e om oe + 
: Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 32 08 0:00.12 00:00:00 83 
Sy owes rp SRRMESS BRB 
Syabol table sort 59 98:08:00:00  $0:59:00-Bp 
Pass :00:00. :00:01. 
Symbol table output 2 888306 be 00:00:00.01 
Psect synopsis output 2 00:00:00.02 00:00:00.02 
Cross-reference output 0 bs So 00:00:00.00 
Assembler run totals 259 00:00:01. 00:00:08.24 


The working , Limit was 750 pages. 
320 bytes f pages) of virtual memory were used to buffer the intermediate code. 
fad were 10 pages of symbol table space woh age) to hold 4 non-local and § local symbols. 
134 source (Sno were read in Pass 1, aw = object records in Pass 2. 
0 pages of virtual memory were used to define 0 macros. 


foesceceseceesecuwececesoucs 


Macro library name Macros defined 
“S25SSDUAZ8:(SYSLIBJSTARLET.MLB;2 0 SS 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHIISIGN/OBJ=OBJ$:MTHIISIGN MSRC$:MTHIISIGN/UPDATE=(ENHS$:MTHIISIGN) 


EQUIPMENT CORPORATION 


AH-BT13A-SE L 
ENTIAL AND PROPRIETARY 


VAX/VMS V4.0 


026 


